home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / dev / e / openurl-e.lha / OpenURL / modules / libraries / openurl.e next >
Text File  |  2002-09-20  |  1KB  |  51 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE 'utility/tagitem', 'exec/lists', 'exec/nodes'
  5.  
  6. CONST URL_TagBase      = TAG_USER
  7. CONST URL_Show         = URL_TagBase + 1
  8. CONST URL_BringToFront = URL_TagBase + 2
  9. CONST URL_NewWindow    = URL_TagBase + 3
  10. CONST URL_Launch       = URL_TagBase + 4
  11. CONST URL_PubScreenName= URL_TagBase + 5
  12.  
  13. CONST UPF_ISDEFAULTS = 1
  14. CONST UPF_PREPENDHTTP= 2
  15. CONST UPF_DOMAILTO   = 4
  16.  
  17. OBJECT url_prefs
  18.  up_Version:CHAR
  19.  up_BrowserList:PTR TO mln
  20.  up_MailerList:PTR TO mln
  21.  up_Flags:LONG
  22.  up_DefShow:INT
  23.  up_DefBringToFront:INT
  24.  up_DefNewWindow:INT
  25.  up_DefLaunch:INT
  26. ENDOBJECT
  27.  
  28. CONST REXX_CMD_LEN = 64
  29.  
  30. CONST UBNF_URLONCMDLINE = 1
  31.  
  32. CONST UBN_NAME_LEN        = 32
  33. CONST UBN_PATH_LEN        = 256
  34. CONST UBN_PORT_LEN        = 32
  35. CONST UBN_SHOWCMD_LEN     = REXX_CMD_LEN
  36. CONST UBN_TOFRONTCMD_LEN  = REXX_CMD_LEN
  37. CONST UBN_OPENURLCMD_LEN  = REXX_CMD_LEN
  38. CONST UBN_OPENURLWCMD_LEN = REXX_CMD_LEN
  39.  
  40. OBJECT url_browsernode
  41.  ubn_Node:ln
  42.  ubn_Flags:LONG
  43.  ubn_Name[UBN_NAME_LEN]:ARRAY OF CHAR
  44.  ubn_Path[UBN_PATH_LEN]:ARRAY OF CHAR
  45.  ubn_Port[UBN_PORT_LEN]:ARRAY OF CHAR
  46.  ubn_ShowCmd[UBN_SHOWCMD_LEN]:ARRAY OF CHAR
  47.  ubn_ToFrontCmd[UBN_TOFRONTCMD_LEN]:ARRAY OF CHAR
  48.  ubn_OpenURLCmd[UBN_OPENURLCMD_LEN]:ARRAY OF CHAR
  49.  ubn_OpenURLWCmd[UBN_OPENURLWCMD_LEN]:ARRAY OF CHAR
  50. ENDOBJECT
  51.